home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / PowerMacInterface / resources.icl < prev    next >
Encoding:
Modula Implementation  |  1996-03-01  |  1.2 KB  |  42 lines  |  [TEXT/3PRM]
  1. implementation module resources;
  2.  
  3. from mac_types import Handle,Toolbox;
  4.  
  5. HOpenResFile :: !Int !Int !{#Char} !Int !Toolbox -> (!Int,!Toolbox);
  6. HOpenResFile vRefNum dirID fileName permission t
  7. = code (vRefNum=D0,dirID=D1,fileName=SD2,permission=D3,t=U)(refNum=D0,t2=Z){
  8.     call    .HOpenResFile
  9. }
  10.  
  11. HCreateResFile :: !Int !Int !{#Char} !Toolbox -> Toolbox;
  12. HCreateResFile vRefNum dirID fileName t = code (vRefNum=D0,dirID=D1,fileName=SD2,t=U)(t2=Z){
  13.     call    .HCreateResFile
  14. }
  15.  
  16. CloseResFile :: !Int !Toolbox -> Toolbox;
  17. CloseResFile refNum t = code (refNum=D0,t=U)(t2=Z){
  18.     call    .CloseResFile
  19. }
  20.  
  21. AddResource :: !Handle !{#Char} !Int !{#Char} !Toolbox -> Toolbox;
  22. AddResource theData theType theID name t = code (theData=D0,theType=U,theID=D2,name=SD3,t=U)(t2=Z){
  23.     instruction 0x80960008    |    lwz    r4,8(r22)
  24.     call    .AddResource
  25. }
  26.  
  27. ResError :: !Toolbox -> (!Int,!Toolbox);
  28. ResError t = code (t=U)(res_error=D0,t2=Z){
  29.     call    .ResError
  30. }
  31.  
  32. Get1Resource :: !{#Char} !Int !Toolbox -> (!Handle,!Toolbox);
  33. Get1Resource theType index t = code (theType=U,index=D1,t=U)(handle=D0,t2=Z){
  34.     instruction 0x80770008    |    lwz    r3,8(r23)
  35.     call    .Get1Resource
  36. }
  37.  
  38. RemoveResource :: !Handle !Toolbox -> Toolbox;
  39. RemoveResource handle t = code (handle=D0,t=U)(t2=Z){
  40.     call    .RemoveResource
  41. }
  42.